<!-- ONE STEP TO INSTALL LOGIN CODER: 1. Add the first code into the BODY of your HTML document --> <!-- STEP ONE: Add the first code into the BODY of your HTML document --> <BODY> <center><table border=1> <tr><form name=members><td rowspan=4> <select name=memlist size=10 onChange="showmem(this.form)"> <!-- Original: Dion (dion@mailhub.omen.com.au) --> <!-- Web Site: http://www.omen.com.au/~dion --> <!-- This script and many more are available online from --> <!-- The JavaScript Source!! http://javascriptsource.com --> <!-- "member name | password | destination pagename |" --> <option selected value="John Smith|password|mainpage|">John Smith <option value="Peter Jones|theirpwd|endpages|">Peter Jones <option value="Sue Brown|asdfvcxz|nowheres|">Sue Brown <option value="Sally West|zaqxswde|logintop|">Sally West </select></td> <td align=right>User:</td><td><input type=hidden value="0" name=entry> <input type=text name=memname size=10 value="" onBlur="update(this.form)"></td></tr> <tr><td align=right>Password:</td><td><input type=text name=password size=10 maxlength=8 onBlur="update(this.form)"> *</td></tr> <tr><td align=right>Page Name:</td><td><input type=text name=pagename size=10 maxlength=8 onBlur="update(this.form)"><b>.html</b> *</td></tr> <tr><td colspan=2 align=center> <input type=button value="New User" onclick="addnew(this.form);"> <input type=button value="Delete User" onclick="delthis(this.form);"> <input type=button value="Show Coding" onclick="create(this.form);"></td></tr> <tr><td colspan=3 align=center> <input type=text size=60 name=message value="Note: Starred entries (*) must be exactly 8 letters! (a-z)"> <input type=hidden name=num value=1></td> </form></tr> </table> <hr size=2 width=75%> <form name=js><textarea cols=75 rows=10 name=scrpt wrap=virtual> <SCRIPT LANGUAGE="JavaScript"> <!-- Begin var params=new Array(4); var alpha="ABCDEFGHIJKLMNOPQRSTUVWXYZABCDEFGHI"; function check(form) { which=form.memlist.selectedIndex; choice = form.memlist.options[which].value+"|"; if (choice=="x|") { alert("Please Select Your Name From The List"); return; } p=0; for (i=0;i<3;i++) { a=choice.indexOf("|",p); params[i]=choice.substring(a,p); p=a+1; } h1=makehash(form.pass.value,3); h2=makehash(form.pass.value,10)+" "; if (h1!=params[1]) { alert("Incorrect Password!"); return; }; var page=""; for (var i=0;i<8;i++) { letter=params[2].substring(i,i+1) ul=letter.toUpperCase(); a=alpha.indexOf(ul,0); a-=(h2.substring(i,i+1)*1); if (a<0) a+=26; page+=alpha.substring(a,a+1); }; top.location=page.toLowerCase()+".html"; } function makehash(pw,mult) { pass=pw.toUpperCase(); hash=0; for (i=0;i<8;i++) { letter=pass.substring(i,i+1); c=alpha.indexOf(letter,0)+1; hash=hash*mult+c; } return(hash); } // End --> </script> </textarea> </form> <SCRIPT LANGUAGE="JavaScript"> <!-- Begin var params=new Array(4); var script=document.js.scrpt.value; document.js.scrpt.value="Create your users, their passwords, and their destination pages using the form above.\n\nThen, click 'Show Coding' to see the login HTML and JavaScript that you need to put on your page to password-protect your site with that info.\n\nQuestions about this script or how to put it on your site should be directed to it's author via email: dion@mailhub.omen.com.au\n\n*Honestly, we don't even totally understand this JavaScript!*"; var alpha="ABCDEFGHIJKLMNOPQRSTUVWXYZABCDEFGHI"; showmem(document.members); function showmem(form) { document.members.num.value=document.members.memlist.length; var which=form.memlist.selectedIndex; splt(form.memlist[which].value); form.entry.value=which+1; for (i=2;i<5;i++) { form.elements[i].value=params[i-2]; }; } function splt(choice) { p=0; for (i=0;i<3;i++) { a=choice.indexOf("|",p); params[i]=choice.substring(a,p); p=a+1; } } function addnew(form) { newmem=getfields(form); var who=prompt("New User's Name:",""); form.memlist[form.memlist.length] = new Option(who, newmem, false, true); if (navigator.appName=="Netscape") { document.js.scrpt.value=script; history.go(0); } else { showmem(document.members); } } function getfields(form) { newmem=""; for (i=2;i<5;i++) { newmem+=form.elements[i].value+"|"; }; for (i=3;i<5;i++) { a=form.elements[i]; if (a.value.length!=8) alert(a.name+" Requires 8 characters!"); for (k=0;k<8;k++) { b=a.value.substring(k,k+1); c=b.toUpperCase(); if (alpha.indexOf(c,0)<0) { alert(a.name+" Must Use Letters A Through Z Only!"); break; }; } } return(newmem); } function delthis(form) { if (confirm("Delete "+form.memname.value+"?")) { form.memlist.options[form.entry.value-1]=null; form.message.value=form.memname.value+" Deleted"; form.memlist.selectedIndex=0; if (navigator.appName=="Netscape") { document.js.scrpt.value=script; history.go(0); } else { showmem(document.members); } } } function update(form) { form.memlist[form.entry.value-1].value=getfields(form); form.message.value=form.memname.value+"'s record was updated"; } function create(form) { var html="<center><form name=login>\n"; html+="<table border=1 cellpadding=3>\n\n"; html+="<!-- Original: Dion (dion@mailhub.omen.com.au) -->\n"; html+="<!-- Web Site: http://www.omen.com.au/~dion -->\n"; html+="<!-- This script and many more are available online from -->\n"; html+="<!-- The JavaScript Source!! http://javascriptsource.com -->\n\n"; html+='<tr><td colspan=2 align=center><font size="+2"><b>Members-Only Area!</b></font></td></tr>\n'; html+="<tr><td>Username:</td><td><select name=memlist>\n<option value='x'>"; for (j=0;j<form.memlist.length;j++) { splt(form.memlist.options[j].value); h1=makehash(params[1],3); h2=makehash(params[1],10)+" "; var page=""; for (var i=0;i<8;i++) { letter=params[2].substring(i,i+1); ul=letter.toUpperCase(); a=alpha.indexOf(ul,0); a+=(h2.substring(i,i+1)*1); page+=alpha.substring(a,a+1); } html+="\n<option value='"+params[0]+"|"+h1+"|"+page+"'>"+params[0]; }; html+="\n</select></td></tr>\n"; html+="<tr><td>Password:</td><td><input type=password size=10 maxlength=8 name=pass></td></tr>\n"; html+='<tr><td colspan=2 align=center><input type=button value="Login" onclick="check(this.form)"></td>\n'; html+="</tr>\n</table>\n</form>\n"; document.js.scrpt.value=html+script+"</center>"; } function makehash(pw,mult) { pass=pw.toUpperCase(); hash=0; for (i=0;i<8;i++) { letter=pass.substring(i,i+1); c=alpha.indexOf(letter,0)+1; hash=hash*mult+c; } return(hash); } // End --> </script> </center> <!-- Script Size: 6.50 KB -->
1998 Copyright (C) Next Step All Rights Reserved
